home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / tmpas / pascode.ht < prev    next >
Encoding:
Text File  |  1990-10-02  |  2.5 KB  |  101 lines
  1. .. file: pascode.ht
  2. ..
  3. .. External declarations for tm Pascal code templates.
  4. { ---- start of ${tplfilename} ---- }
  5.  
  6. { template file:      ${tplfilename}
  7.   datastructure file: ${dsfilename}
  8.   tm version:         $(tmvers) ($(tmdate)) }
  9.  
  10. { New<type> and New<cons> functions }
  11. .foreach t $(want_New)
  12. .if ${len ${telmlist $t}}
  13. procedure New$t(
  14. .foreach sname ${telmlist $t}
  15. .if ${eq list ${ttypeclass $t $(sname)}}
  16.  Tmp$(sname): ${ttypename $t $(sname)}list;
  17. .else
  18.  Tmp$(sname): ${ttypename $t $(sname)};
  19. .endif
  20. .endforeach
  21.  var nw: $t
  22. );
  23. external;
  24. .else
  25. .foreach c ${conslist $t}
  26. procedure New$c(
  27. .foreach sname ${celmlist $t $c}
  28. .if ${eq list ${ctypeclass $t $c $(sname)}}
  29.  Tmp$(sname): ${ctypename $t $c $(sname)}list;
  30. .else
  31.  Tmp$(sname): ${ctypename $t $c $(sname)};
  32. .endif
  33. .endforeach
  34.  var nw: $t
  35. );
  36. external;
  37. .endforeach
  38. .endif
  39. .endforeach
  40.  
  41. { Free<type> and Free<type>list routines }
  42. .foreach t $(want_Free)
  43. procedure Free$t( var e: $t  ); external;
  44. .endforeach
  45. .foreach t $(want_Free_list)
  46. procedure Free$tlist( var l: $tlist ); external;
  47. .endforeach
  48.  
  49. { Rfre<type> and Rfre<type>list routines }
  50. .foreach t $(want_Rfre)
  51. procedure Rfre$t( var e: $t ); external;
  52. .endforeach
  53. .foreach t $(want_Rfre_list)
  54. procedure Rfre$tlist( var l: $tlist ); external;
  55. .endforeach
  56.  
  57. { App<type> functions }
  58. .foreach t $(want_App)
  59. function App$t( var list: $tlist; element: $t ): $tlist; external;
  60. .endforeach
  61.  
  62. { Write<type> and Write<type>list routines }
  63. .foreach t $(want_Write)
  64. procedure Write$t( var f: text; t: $t ); external;
  65. .endforeach
  66. .foreach t $(want_Write_list)
  67. procedure Write$tlist( var f: text; l: $tlist ); external;
  68. .endforeach
  69.  
  70. { Copy<type> and Copy<type>list routines }
  71. .foreach t $(want_Copy)
  72. function Copy$t( i: $t ): $t; external;
  73. .endforeach
  74. .foreach t $(want_Copy_list)
  75. function Copy$tlist( i: $tlist ): $tlist; external;
  76. .endforeach
  77.  
  78. { Read<type> and Read<type>list routines }
  79. .foreach t $(want_Read)
  80. function Read$t( var f, rf: text; var p: $t ): boolean; external;
  81. .endforeach
  82. .foreach t $(want_Read_list)
  83. function Read$tlist( var f, rf: text; var p: $tlist ): boolean; external;
  84. .endforeach
  85.  
  86. { Cmp<type> and Cmp<type>list routines }
  87. .foreach t $(want_Cmp)
  88. function Cmp$t( a, b: $t ): integer; external;
  89. .endforeach
  90. .foreach t $(want_Cmp_list)
  91. function Cmp$tlist( a, b: $tlist ): integer; external;
  92. .endforeach
  93. { Initalizations for $(basename) }
  94. procedure Init$(basename); external;
  95.  
  96. { Statistics printing routine }
  97. .if ${index Stat$(basename) $(want_misc)}
  98. procedure Stat$(basename)( var f: text ); external;
  99. .endif
  100. { ---- end of ${tplfilename} ---- }
  101.